home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / 22 xml and adonet / xmldemo / pubs.vb < prev    next >
Text File  |  2001-12-03  |  38KB  |  993 lines
  1. '------------------------------------------------------------------------------
  2. ' <autogenerated>
  3. '     This code was generated by a tool.
  4. '     Runtime Version: 1.0.3512.0
  5. '
  6. '     Changes to this file may cause incorrect behavior and will be lost if 
  7. '     the code is regenerated.
  8. ' </autogenerated>
  9. '------------------------------------------------------------------------------
  10.  
  11. Option Strict Off
  12. Option Explicit On
  13.  
  14. Imports System
  15. Imports System.Data
  16. Imports System.Runtime.Serialization
  17. Imports System.Xml
  18.  
  19. '
  20. 'This source code was auto-generated by xsd, Version=1.0.3512.0.
  21. '
  22.  
  23. <Serializable(), _
  24.  System.ComponentModel.DesignerCategoryAttribute("code"), _
  25.  System.Diagnostics.DebuggerStepThrough(), _
  26.  System.ComponentModel.ToolboxItem(True)> _
  27. Public Class PubsDataSet
  28.     Inherits DataSet
  29.  
  30.     Private tablePublishers As PublishersDataTable
  31.  
  32.     Private tableTitles As TitlesDataTable
  33.  
  34.     Private relationPubTitles As DataRelation
  35.  
  36.     Public Sub New()
  37.         MyBase.New()
  38.         Me.InitClass()
  39.         Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  40.         AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
  41.         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
  42.     End Sub
  43.  
  44.     Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
  45.         MyBase.New()
  46.         Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(System.String)), String)
  47.         If (Not (strSchema) Is Nothing) Then
  48.             Dim ds As DataSet = New DataSet()
  49.             ds.ReadXmlSchema(New XmlTextReader(New System.IO.StringReader(strSchema)))
  50.             If (Not (ds.Tables("Publishers")) Is Nothing) Then
  51.                 Me.Tables.Add(New PublishersDataTable(ds.Tables("Publishers")))
  52.             End If
  53.             If (Not (ds.Tables("Titles")) Is Nothing) Then
  54.                 Me.Tables.Add(New TitlesDataTable(ds.Tables("Titles")))
  55.             End If
  56.             Me.DataSetName = ds.DataSetName
  57.             Me.Prefix = ds.Prefix
  58.             Me.Namespace = ds.Namespace
  59.             Me.Locale = ds.Locale
  60.             Me.CaseSensitive = ds.CaseSensitive
  61.             Me.EnforceConstraints = ds.EnforceConstraints
  62.             Me.Merge(ds, False, System.Data.MissingSchemaAction.Add)
  63.             Me.InitVars()
  64.         Else
  65.             Me.InitClass()
  66.         End If
  67.         Me.GetSerializationData(info, context)
  68.         Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  69.         AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
  70.         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
  71.     End Sub
  72.  
  73.     <System.ComponentModel.Browsable(False), _
  74.      System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
  75.     Public ReadOnly Property Publishers() As PublishersDataTable
  76.         Get
  77.             Return Me.tablePublishers
  78.         End Get
  79.     End Property
  80.  
  81.     <System.ComponentModel.Browsable(False), _
  82.      System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
  83.     Public ReadOnly Property Titles() As TitlesDataTable
  84.         Get
  85.             Return Me.tableTitles
  86.         End Get
  87.     End Property
  88.  
  89.     Public Overrides Function Clone() As DataSet
  90.         Dim cln As PubsDataSet = CType(MyBase.Clone, PubsDataSet)
  91.         cln.InitVars()
  92.         Return cln
  93.  
  94.     End Function
  95.  
  96.     Protected Overrides Function ShouldSerializeTables() As Boolean
  97.         Return False
  98.     End Function
  99.  
  100.     Protected Overrides Function ShouldSerializeRelations() As Boolean
  101.         Return False
  102.     End Function
  103.  
  104.     Protected Overrides Sub ReadXmlSerializable(ByVal reader As XmlReader)
  105.         Me.Reset()
  106.         Dim ds As DataSet = New DataSet()
  107.         ds.ReadXml(reader)
  108.         If (Not (ds.Tables("Publishers")) Is Nothing) Then
  109.             Me.Tables.Add(New PublishersDataTable(ds.Tables("Publishers")))
  110.         End If
  111.         If (Not (ds.Tables("Titles")) Is Nothing) Then
  112.             Me.Tables.Add(New TitlesDataTable(ds.Tables("Titles")))
  113.         End If
  114.         Me.DataSetName = ds.DataSetName
  115.         Me.Prefix = ds.Prefix
  116.         Me.Namespace = ds.Namespace
  117.         Me.Locale = ds.Locale
  118.         Me.CaseSensitive = ds.CaseSensitive
  119.         Me.EnforceConstraints = ds.EnforceConstraints
  120.         Me.Merge(ds, False, System.Data.MissingSchemaAction.Add)
  121.         Me.InitVars()
  122.     End Sub
  123.  
  124.     Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
  125.         Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream()
  126.         Me.WriteXmlSchema(New XmlTextWriter(stream, Nothing))
  127.         stream.Position = 0
  128.         Return System.Xml.Schema.XmlSchema.Read(New XmlTextReader(stream), Nothing)
  129.     End Function
  130.  
  131.     Friend Sub InitVars()
  132.         Me.tablePublishers = CType(Me.Tables("Publishers"), PublishersDataTable)
  133.         If (Not (Me.tablePublishers) Is Nothing) Then
  134.             Me.tablePublishers.InitVars()
  135.         End If
  136.         Me.tableTitles = CType(Me.Tables("Titles"), TitlesDataTable)
  137.         If (Not (Me.tableTitles) Is Nothing) Then
  138.             Me.tableTitles.InitVars()
  139.         End If
  140.         Me.relationPubTitles = Me.Relations("PubTitles")
  141.     End Sub
  142.  
  143.     Private Sub InitClass()
  144.         Me.DataSetName = "NewDataSet"
  145.         Me.Prefix = ""
  146.         Me.Namespace = ""
  147.         Me.Locale = New System.Globalization.CultureInfo("en-US")
  148.         Me.CaseSensitive = False
  149.         Me.EnforceConstraints = True
  150.         Me.tablePublishers = New PublishersDataTable()
  151.         Me.Tables.Add(Me.tablePublishers)
  152.         Me.tableTitles = New TitlesDataTable()
  153.         Me.Tables.Add(Me.tableTitles)
  154.         Dim fkc As ForeignKeyConstraint
  155.         fkc = New ForeignKeyConstraint("PubTitles", New DataColumn() {Me.tablePublishers.pub_idColumn}, New DataColumn() {Me.tableTitles.pub_idColumn})
  156.         Me.tableTitles.Constraints.Add(fkc)
  157.         fkc.AcceptRejectRule = AcceptRejectRule.None
  158.         fkc.DeleteRule = Rule.Cascade
  159.         fkc.UpdateRule = Rule.Cascade
  160.         Me.relationPubTitles = New DataRelation("PubTitles", New DataColumn() {Me.tablePublishers.pub_idColumn}, New DataColumn() {Me.tableTitles.pub_idColumn}, False)
  161.         Me.Relations.Add(Me.relationPubTitles)
  162.     End Sub
  163.  
  164.     Private Function ShouldSerializePublishers() As Boolean
  165.         Return False
  166.     End Function
  167.  
  168.     Private Function ShouldSerializeTitles() As Boolean
  169.         Return False
  170.     End Function
  171.  
  172.     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
  173.         If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
  174.             Me.InitVars()
  175.         End If
  176.     End Sub
  177.  
  178.     Public Delegate Sub PublishersRowChangeEventHandler(ByVal sender As Object, ByVal e As PublishersRowChangeEvent)
  179.  
  180.     Public Delegate Sub TitlesRowChangeEventHandler(ByVal sender As Object, ByVal e As TitlesRowChangeEvent)
  181.  
  182.     <System.Diagnostics.DebuggerStepThrough()> _
  183.     Public Class PublishersDataTable
  184.         Inherits DataTable
  185.         Implements System.Collections.IEnumerable
  186.  
  187.         Private columnpub_id As DataColumn
  188.  
  189.         Private columnpub_name As DataColumn
  190.  
  191.         Private columncity As DataColumn
  192.  
  193.         Private columnstate As DataColumn
  194.  
  195.         Private columncountry As DataColumn
  196.  
  197.         Friend Sub New()
  198.             MyBase.New("Publishers")
  199.             Me.InitClass()
  200.         End Sub
  201.  
  202.         Friend Sub New(ByVal table As DataTable)
  203.             MyBase.New(table.TableName)
  204.             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
  205.                 Me.CaseSensitive = table.CaseSensitive
  206.             End If
  207.             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
  208.                 Me.Locale = table.Locale
  209.             End If
  210.             If (table.Namespace <> table.DataSet.Namespace) Then
  211.                 Me.Namespace = table.Namespace
  212.             End If
  213.             Me.Prefix = table.Prefix
  214.             Me.MinimumCapacity = table.MinimumCapacity
  215.             Me.DisplayExpression = table.DisplayExpression
  216.         End Sub
  217.  
  218.         <System.ComponentModel.Browsable(False)> _
  219.         Public ReadOnly Property Count() As Integer
  220.             Get
  221.                 Return Me.Rows.Count
  222.             End Get
  223.         End Property
  224.  
  225.         Friend ReadOnly Property pub_idColumn() As DataColumn
  226.             Get
  227.                 Return Me.columnpub_id
  228.             End Get
  229.         End Property
  230.  
  231.         Friend ReadOnly Property pub_nameColumn() As DataColumn
  232.             Get
  233.                 Return Me.columnpub_name
  234.             End Get
  235.         End Property
  236.  
  237.         Friend ReadOnly Property cityColumn() As DataColumn
  238.             Get
  239.                 Return Me.columncity
  240.             End Get
  241.         End Property
  242.  
  243.         Friend ReadOnly Property stateColumn() As DataColumn
  244.             Get
  245.                 Return Me.columnstate
  246.             End Get
  247.         End Property
  248.  
  249.         Friend ReadOnly Property countryColumn() As DataColumn
  250.             Get
  251.                 Return Me.columncountry
  252.             End Get
  253.         End Property
  254.  
  255.         Default Public ReadOnly Property Item(ByVal index As Integer) As PublishersRow
  256.             Get
  257.                 Return CType(Me.Rows(index), PublishersRow)
  258.             End Get
  259.         End Property
  260.  
  261.         Public Event PublishersRowChanged As PublishersRowChangeEventHandler
  262.  
  263.         Public Event PublishersRowChanging As PublishersRowChangeEventHandler
  264.  
  265.         Public Event PublishersRowDeleted As PublishersRowChangeEventHandler
  266.  
  267.         Public Event PublishersRowDeleting As PublishersRowChangeEventHandler
  268.  
  269.         Public Overloads Sub AddPublishersRow(ByVal row As PublishersRow)
  270.             Me.Rows.Add(row)
  271.         End Sub
  272.  
  273.         Public Overloads Function AddPublishersRow(ByVal pub_id As String, ByVal pub_name As String, ByVal city As String, ByVal state As String, ByVal country As String) As PublishersRow
  274.             Dim rowPublishersRow As PublishersRow = CType(Me.NewRow, PublishersRow)
  275.             rowPublishersRow.ItemArray = New Object() {pub_id, pub_name, city, state, country}
  276.             Me.Rows.Add(rowPublishersRow)
  277.             Return rowPublishersRow
  278.         End Function
  279.  
  280.         Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
  281.             Return Me.Rows.GetEnumerator
  282.         End Function
  283.  
  284.         Public Overrides Function Clone() As DataTable
  285.             Dim cln As PublishersDataTable = CType(MyBase.Clone, PublishersDataTable)
  286.             cln.InitVars()
  287.             Return cln
  288.         End Function
  289.  
  290.         Friend Sub InitVars()
  291.             Me.columnpub_id = Me.Columns("pub_id")
  292.             Me.columnpub_name = Me.Columns("pub_name")
  293.             Me.columncity = Me.Columns("city")
  294.             Me.columnstate = Me.Columns("state")
  295.             Me.columncountry = Me.Columns("country")
  296.         End Sub
  297.  
  298.         Private Sub InitClass()
  299.             Me.columnpub_id = New DataColumn("pub_id", GetType(System.String), Nothing, System.Data.MappingType.Element)
  300.             Me.Columns.Add(Me.columnpub_id)
  301.             Me.columnpub_name = New DataColumn("pub_name", GetType(System.String), Nothing, System.Data.MappingType.Element)
  302.             Me.Columns.Add(Me.columnpub_name)
  303.             Me.columncity = New DataColumn("city", GetType(System.String), Nothing, System.Data.MappingType.Element)
  304.             Me.Columns.Add(Me.columncity)
  305.             Me.columnstate = New DataColumn("state", GetType(System.String), Nothing, System.Data.MappingType.Element)
  306.             Me.Columns.Add(Me.columnstate)
  307.             Me.columncountry = New DataColumn("country", GetType(System.String), Nothing, System.Data.MappingType.Element)
  308.             Me.Columns.Add(Me.columncountry)
  309.             Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columnpub_id}, False))
  310.             Me.columnpub_id.Unique = True
  311.         End Sub
  312.  
  313.         Public Function NewPublishersRow() As PublishersRow
  314.             Return CType(Me.NewRow, PublishersRow)
  315.         End Function
  316.  
  317.         Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
  318.             Return New PublishersRow(builder)
  319.         End Function
  320.  
  321.         Protected Overrides Function GetRowType() As System.Type
  322.             Return GetType(PublishersRow)
  323.         End Function
  324.  
  325.         Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
  326.             MyBase.OnRowChanged(e)
  327.             If (Not (Me.PublishersRowChangedEvent) Is Nothing) Then
  328.                 RaiseEvent PublishersRowChanged(Me, New PublishersRowChangeEvent(CType(e.Row, PublishersRow), e.Action))
  329.             End If
  330.         End Sub
  331.  
  332.         Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
  333.             MyBase.OnRowChanging(e)
  334.             If (Not (Me.PublishersRowChangingEvent) Is Nothing) Then
  335.                 RaiseEvent PublishersRowChanging(Me, New PublishersRowChangeEvent(CType(e.Row, PublishersRow), e.Action))
  336.             End If
  337.         End Sub
  338.  
  339.         Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
  340.             MyBase.OnRowDeleted(e)
  341.             If (Not (Me.PublishersRowDeletedEvent) Is Nothing) Then
  342.                 RaiseEvent PublishersRowDeleted(Me, New PublishersRowChangeEvent(CType(e.Row, PublishersRow), e.Action))
  343.             End If
  344.         End Sub
  345.  
  346.         Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
  347.             MyBase.OnRowDeleting(e)
  348.             If (Not (Me.PublishersRowDeletingEvent) Is Nothing) Then
  349.                 RaiseEvent PublishersRowDeleting(Me, New PublishersRowChangeEvent(CType(e.Row, PublishersRow), e.Action))
  350.             End If
  351.         End Sub
  352.  
  353.         Public Sub RemovePublishersRow(ByVal row As PublishersRow)
  354.             Me.Rows.Remove(row)
  355.         End Sub
  356.     End Class
  357.  
  358.     <System.Diagnostics.DebuggerStepThrough()> _
  359.     Public Class PublishersRow
  360.         Inherits DataRow
  361.  
  362.         Private tablePublishers As PublishersDataTable
  363.  
  364.         Friend Sub New(ByVal rb As DataRowBuilder)
  365.             MyBase.New(rb)
  366.             Me.tablePublishers = CType(Me.Table, PublishersDataTable)
  367.         End Sub
  368.  
  369.         Public Property pub_id() As String
  370.             Get
  371.                 Try
  372.                     Return CType(Me(Me.tablePublishers.pub_idColumn), String)
  373.                 Catch e As InvalidCastException
  374.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  375.                 End Try
  376.             End Get
  377.             Set(ByVal Value As String)
  378.                 Me(Me.tablePublishers.pub_idColumn) = Value
  379.             End Set
  380.         End Property
  381.  
  382.         Public Property pub_name() As String
  383.             Get
  384.                 Try
  385.                     Return CType(Me(Me.tablePublishers.pub_nameColumn), String)
  386.                 Catch e As InvalidCastException
  387.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  388.                 End Try
  389.             End Get
  390.             Set(ByVal Value As String)
  391.                 Me(Me.tablePublishers.pub_nameColumn) = Value
  392.             End Set
  393.         End Property
  394.  
  395.         Public Property city() As String
  396.             Get
  397.                 Try
  398.                     Return CType(Me(Me.tablePublishers.cityColumn), String)
  399.                 Catch e As InvalidCastException
  400.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  401.                 End Try
  402.             End Get
  403.             Set(ByVal Value As String)
  404.                 Me(Me.tablePublishers.cityColumn) = Value
  405.             End Set
  406.         End Property
  407.  
  408.         Public Property state() As String
  409.             Get
  410.                 Try
  411.                     Return CType(Me(Me.tablePublishers.stateColumn), String)
  412.                 Catch e As InvalidCastException
  413.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  414.                 End Try
  415.             End Get
  416.             Set(ByVal Value As String)
  417.                 Me(Me.tablePublishers.stateColumn) = Value
  418.             End Set
  419.         End Property
  420.  
  421.         Public Property country() As String
  422.             Get
  423.                 Try
  424.                     Return CType(Me(Me.tablePublishers.countryColumn), String)
  425.                 Catch e As InvalidCastException
  426.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  427.                 End Try
  428.             End Get
  429.             Set(ByVal Value As String)
  430.                 Me(Me.tablePublishers.countryColumn) = Value
  431.             End Set
  432.         End Property
  433.  
  434.         Public Function Ispub_idNull() As Boolean
  435.             Return Me.IsNull(Me.tablePublishers.pub_idColumn)
  436.         End Function
  437.  
  438.         Public Sub Setpub_idNull()
  439.             Me(Me.tablePublishers.pub_idColumn) = System.Convert.DBNull
  440.         End Sub
  441.  
  442.         Public Function Ispub_nameNull() As Boolean
  443.             Return Me.IsNull(Me.tablePublishers.pub_nameColumn)
  444.         End Function
  445.  
  446.         Public Sub Setpub_nameNull()
  447.             Me(Me.tablePublishers.pub_nameColumn) = System.Convert.DBNull
  448.         End Sub
  449.  
  450.         Public Function IscityNull() As Boolean
  451.             Return Me.IsNull(Me.tablePublishers.cityColumn)
  452.         End Function
  453.  
  454.         Public Sub SetcityNull()
  455.             Me(Me.tablePublishers.cityColumn) = System.Convert.DBNull
  456.         End Sub
  457.  
  458.         Public Function IsstateNull() As Boolean
  459.             Return Me.IsNull(Me.tablePublishers.stateColumn)
  460.         End Function
  461.  
  462.         Public Sub SetstateNull()
  463.             Me(Me.tablePublishers.stateColumn) = System.Convert.DBNull
  464.         End Sub
  465.  
  466.         Public Function IscountryNull() As Boolean
  467.             Return Me.IsNull(Me.tablePublishers.countryColumn)
  468.         End Function
  469.  
  470.         Public Sub SetcountryNull()
  471.             Me(Me.tablePublishers.countryColumn) = System.Convert.DBNull
  472.         End Sub
  473.  
  474.         Public Function GetTitlesRows() As TitlesRow()
  475.             Return CType(Me.GetChildRows(Me.Table.ChildRelations("PubTitles")), TitlesRow())
  476.         End Function
  477.     End Class
  478.  
  479.     <System.Diagnostics.DebuggerStepThrough()> _
  480.     Public Class PublishersRowChangeEvent
  481.         Inherits EventArgs
  482.  
  483.         Private eventRow As PublishersRow
  484.  
  485.         Private eventAction As DataRowAction
  486.  
  487.         Public Sub New(ByVal row As PublishersRow, ByVal action As DataRowAction)
  488.             MyBase.New()
  489.             Me.eventRow = row
  490.             Me.eventAction = action
  491.         End Sub
  492.  
  493.         Public ReadOnly Property Row() As PublishersRow
  494.             Get
  495.                 Return Me.eventRow
  496.             End Get
  497.         End Property
  498.  
  499.         Public ReadOnly Property Action() As DataRowAction
  500.             Get
  501.                 Return Me.eventAction
  502.             End Get
  503.         End Property
  504.     End Class
  505.  
  506.     <System.Diagnostics.DebuggerStepThrough()> _
  507.     Public Class TitlesDataTable
  508.         Inherits DataTable
  509.         Implements System.Collections.IEnumerable
  510.  
  511.         Private columntitle_id As DataColumn
  512.  
  513.         Private columntitle As DataColumn
  514.  
  515.         Private columntype As DataColumn
  516.  
  517.         Private columnpub_id As DataColumn
  518.  
  519.         Private columnprice As DataColumn
  520.  
  521.         Private columnadvance As DataColumn
  522.  
  523.         Private columnroyalty As DataColumn
  524.  
  525.         Private columnytd_sales As DataColumn
  526.  
  527.         Private columnnotes As DataColumn
  528.  
  529.         Private columnpubdate As DataColumn
  530.  
  531.         Friend Sub New()
  532.             MyBase.New("Titles")
  533.             Me.InitClass()
  534.         End Sub
  535.  
  536.         Friend Sub New(ByVal table As DataTable)
  537.             MyBase.New(table.TableName)
  538.             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
  539.                 Me.CaseSensitive = table.CaseSensitive
  540.             End If
  541.             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
  542.                 Me.Locale = table.Locale
  543.             End If
  544.             If (table.Namespace <> table.DataSet.Namespace) Then
  545.                 Me.Namespace = table.Namespace
  546.             End If
  547.             Me.Prefix = table.Prefix
  548.             Me.MinimumCapacity = table.MinimumCapacity
  549.             Me.DisplayExpression = table.DisplayExpression
  550.         End Sub
  551.  
  552.         <System.ComponentModel.Browsable(False)> _
  553.         Public ReadOnly Property Count() As Integer
  554.             Get
  555.                 Return Me.Rows.Count
  556.             End Get
  557.         End Property
  558.  
  559.         Friend ReadOnly Property title_idColumn() As DataColumn
  560.             Get
  561.                 Return Me.columntitle_id
  562.             End Get
  563.         End Property
  564.  
  565.         Friend ReadOnly Property titleColumn() As DataColumn
  566.             Get
  567.                 Return Me.columntitle
  568.             End Get
  569.         End Property
  570.  
  571.         Friend ReadOnly Property typeColumn() As DataColumn
  572.             Get
  573.                 Return Me.columntype
  574.             End Get
  575.         End Property
  576.  
  577.         Friend ReadOnly Property pub_idColumn() As DataColumn
  578.             Get
  579.                 Return Me.columnpub_id
  580.             End Get
  581.         End Property
  582.  
  583.         Friend ReadOnly Property priceColumn() As DataColumn
  584.             Get
  585.                 Return Me.columnprice
  586.             End Get
  587.         End Property
  588.  
  589.         Friend ReadOnly Property advanceColumn() As DataColumn
  590.             Get
  591.                 Return Me.columnadvance
  592.             End Get
  593.         End Property
  594.  
  595.         Friend ReadOnly Property royaltyColumn() As DataColumn
  596.             Get
  597.                 Return Me.columnroyalty
  598.             End Get
  599.         End Property
  600.  
  601.         Friend ReadOnly Property ytd_salesColumn() As DataColumn
  602.             Get
  603.                 Return Me.columnytd_sales
  604.             End Get
  605.         End Property
  606.  
  607.         Friend ReadOnly Property notesColumn() As DataColumn
  608.             Get
  609.                 Return Me.columnnotes
  610.             End Get
  611.         End Property
  612.  
  613.         Friend ReadOnly Property pubdateColumn() As DataColumn
  614.             Get
  615.                 Return Me.columnpubdate
  616.             End Get
  617.         End Property
  618.  
  619.         Default Public ReadOnly Property Item(ByVal index As Integer) As TitlesRow
  620.             Get
  621.                 Return CType(Me.Rows(index), TitlesRow)
  622.             End Get
  623.         End Property
  624.  
  625.         Public Event TitlesRowChanged As TitlesRowChangeEventHandler
  626.  
  627.         Public Event TitlesRowChanging As TitlesRowChangeEventHandler
  628.  
  629.         Public Event TitlesRowDeleted As TitlesRowChangeEventHandler
  630.  
  631.         Public Event TitlesRowDeleting As TitlesRowChangeEventHandler
  632.  
  633.         Public Overloads Sub AddTitlesRow(ByVal row As TitlesRow)
  634.             Me.Rows.Add(row)
  635.         End Sub
  636.  
  637.         Public Overloads Function AddTitlesRow(ByVal title_id As String, ByVal title As String, ByVal type As String, ByVal parentPublishersRowByPubTitles As PublishersRow, ByVal price As Decimal, ByVal advance As Decimal, ByVal royalty As Integer, ByVal ytd_sales As Integer, ByVal notes As String, ByVal pubdate As Date) As TitlesRow
  638.             Dim rowTitlesRow As TitlesRow = CType(Me.NewRow, TitlesRow)
  639.             rowTitlesRow.ItemArray = New Object() {title_id, title, type, parentPublishersRowByPubTitles(0), price, advance, royalty, ytd_sales, notes, pubdate}
  640.             Me.Rows.Add(rowTitlesRow)
  641.             Return rowTitlesRow
  642.         End Function
  643.  
  644.         Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
  645.             Return Me.Rows.GetEnumerator
  646.         End Function
  647.  
  648.         Public Overrides Function Clone() As DataTable
  649.             Dim cln As TitlesDataTable = CType(MyBase.Clone, TitlesDataTable)
  650.             cln.InitVars()
  651.             Return cln
  652.         End Function
  653.  
  654.         Friend Sub InitVars()
  655.             Me.columntitle_id = Me.Columns("title_id")
  656.             Me.columntitle = Me.Columns("title")
  657.             Me.columntype = Me.Columns("type")
  658.             Me.columnpub_id = Me.Columns("pub_id")
  659.             Me.columnprice = Me.Columns("price")
  660.             Me.columnadvance = Me.Columns("advance")
  661.             Me.columnroyalty = Me.Columns("royalty")
  662.             Me.columnytd_sales = Me.Columns("ytd_sales")
  663.             Me.columnnotes = Me.Columns("notes")
  664.             Me.columnpubdate = Me.Columns("pubdate")
  665.         End Sub
  666.  
  667.         Private Sub InitClass()
  668.             Me.columntitle_id = New DataColumn("title_id", GetType(System.String), Nothing, System.Data.MappingType.Element)
  669.             Me.Columns.Add(Me.columntitle_id)
  670.             Me.columntitle = New DataColumn("title", GetType(System.String), Nothing, System.Data.MappingType.Element)
  671.             Me.Columns.Add(Me.columntitle)
  672.             Me.columntype = New DataColumn("type", GetType(System.String), Nothing, System.Data.MappingType.Element)
  673.             Me.Columns.Add(Me.columntype)
  674.             Me.columnpub_id = New DataColumn("pub_id", GetType(System.String), Nothing, System.Data.MappingType.Element)
  675.             Me.Columns.Add(Me.columnpub_id)
  676.             Me.columnprice = New DataColumn("price", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
  677.             Me.Columns.Add(Me.columnprice)
  678.             Me.columnadvance = New DataColumn("advance", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
  679.             Me.Columns.Add(Me.columnadvance)
  680.             Me.columnroyalty = New DataColumn("royalty", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
  681.             Me.Columns.Add(Me.columnroyalty)
  682.             Me.columnytd_sales = New DataColumn("ytd_sales", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
  683.             Me.Columns.Add(Me.columnytd_sales)
  684.             Me.columnnotes = New DataColumn("notes", GetType(System.String), Nothing, System.Data.MappingType.Element)
  685.             Me.Columns.Add(Me.columnnotes)
  686.             Me.columnpubdate = New DataColumn("pubdate", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
  687.             Me.Columns.Add(Me.columnpubdate)
  688.         End Sub
  689.  
  690.         Public Function NewTitlesRow() As TitlesRow
  691.             Return CType(Me.NewRow, TitlesRow)
  692.         End Function
  693.  
  694.         Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
  695.             Return New TitlesRow(builder)
  696.         End Function
  697.  
  698.         Protected Overrides Function GetRowType() As System.Type
  699.             Return GetType(TitlesRow)
  700.         End Function
  701.  
  702.         Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
  703.             MyBase.OnRowChanged(e)
  704.             If (Not (Me.TitlesRowChangedEvent) Is Nothing) Then
  705.                 RaiseEvent TitlesRowChanged(Me, New TitlesRowChangeEvent(CType(e.Row, TitlesRow), e.Action))
  706.             End If
  707.         End Sub
  708.  
  709.         Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
  710.             MyBase.OnRowChanging(e)
  711.             If (Not (Me.TitlesRowChangingEvent) Is Nothing) Then
  712.                 RaiseEvent TitlesRowChanging(Me, New TitlesRowChangeEvent(CType(e.Row, TitlesRow), e.Action))
  713.             End If
  714.         End Sub
  715.  
  716.         Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
  717.             MyBase.OnRowDeleted(e)
  718.             If (Not (Me.TitlesRowDeletedEvent) Is Nothing) Then
  719.                 RaiseEvent TitlesRowDeleted(Me, New TitlesRowChangeEvent(CType(e.Row, TitlesRow), e.Action))
  720.             End If
  721.         End Sub
  722.  
  723.         Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
  724.             MyBase.OnRowDeleting(e)
  725.             If (Not (Me.TitlesRowDeletingEvent) Is Nothing) Then
  726.                 RaiseEvent TitlesRowDeleting(Me, New TitlesRowChangeEvent(CType(e.Row, TitlesRow), e.Action))
  727.             End If
  728.         End Sub
  729.  
  730.         Public Sub RemoveTitlesRow(ByVal row As TitlesRow)
  731.             Me.Rows.Remove(row)
  732.         End Sub
  733.     End Class
  734.  
  735.     <System.Diagnostics.DebuggerStepThrough()> _
  736.     Public Class TitlesRow
  737.         Inherits DataRow
  738.  
  739.         Private tableTitles As TitlesDataTable
  740.  
  741.         Friend Sub New(ByVal rb As DataRowBuilder)
  742.             MyBase.New(rb)
  743.             Me.tableTitles = CType(Me.Table, TitlesDataTable)
  744.         End Sub
  745.  
  746.         Public Property title_id() As String
  747.             Get
  748.                 Try
  749.                     Return CType(Me(Me.tableTitles.title_idColumn), String)
  750.                 Catch e As InvalidCastException
  751.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  752.                 End Try
  753.             End Get
  754.             Set(ByVal Value As String)
  755.                 Me(Me.tableTitles.title_idColumn) = Value
  756.             End Set
  757.         End Property
  758.  
  759.         Public Property title() As String
  760.             Get
  761.                 Try
  762.                     Return CType(Me(Me.tableTitles.titleColumn), String)
  763.                 Catch e As InvalidCastException
  764.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  765.                 End Try
  766.             End Get
  767.             Set(ByVal Value As String)
  768.                 Me(Me.tableTitles.titleColumn) = Value
  769.             End Set
  770.         End Property
  771.  
  772.         Public Property type() As String
  773.             Get
  774.                 Try
  775.                     Return CType(Me(Me.tableTitles.typeColumn), String)
  776.                 Catch e As InvalidCastException
  777.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  778.                 End Try
  779.             End Get
  780.             Set(ByVal Value As String)
  781.                 Me(Me.tableTitles.typeColumn) = Value
  782.             End Set
  783.         End Property
  784.  
  785.         Public Property pub_id() As String
  786.             Get
  787.                 Try
  788.                     Return CType(Me(Me.tableTitles.pub_idColumn), String)
  789.                 Catch e As InvalidCastException
  790.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  791.                 End Try
  792.             End Get
  793.             Set(ByVal Value As String)
  794.                 Me(Me.tableTitles.pub_idColumn) = Value
  795.             End Set
  796.         End Property
  797.  
  798.         Public Property price() As Decimal
  799.             Get
  800.                 Try
  801.                     Return CType(Me(Me.tableTitles.priceColumn), Decimal)
  802.                 Catch e As InvalidCastException
  803.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  804.                 End Try
  805.             End Get
  806.             Set(ByVal Value As Decimal)
  807.                 Me(Me.tableTitles.priceColumn) = Value
  808.             End Set
  809.         End Property
  810.  
  811.         Public Property advance() As Decimal
  812.             Get
  813.                 Try
  814.                     Return CType(Me(Me.tableTitles.advanceColumn), Decimal)
  815.                 Catch e As InvalidCastException
  816.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  817.                 End Try
  818.             End Get
  819.             Set(ByVal Value As Decimal)
  820.                 Me(Me.tableTitles.advanceColumn) = Value
  821.             End Set
  822.         End Property
  823.  
  824.         Public Property royalty() As Integer
  825.             Get
  826.                 Try
  827.                     Return CType(Me(Me.tableTitles.royaltyColumn), Integer)
  828.                 Catch e As InvalidCastException
  829.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  830.                 End Try
  831.             End Get
  832.             Set(ByVal Value As Integer)
  833.                 Me(Me.tableTitles.royaltyColumn) = Value
  834.             End Set
  835.         End Property
  836.  
  837.         Public Property ytd_sales() As Integer
  838.             Get
  839.                 Try
  840.                     Return CType(Me(Me.tableTitles.ytd_salesColumn), Integer)
  841.                 Catch e As InvalidCastException
  842.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  843.                 End Try
  844.             End Get
  845.             Set(ByVal Value As Integer)
  846.                 Me(Me.tableTitles.ytd_salesColumn) = Value
  847.             End Set
  848.         End Property
  849.  
  850.         Public Property notes() As String
  851.             Get
  852.                 Try
  853.                     Return CType(Me(Me.tableTitles.notesColumn), String)
  854.                 Catch e As InvalidCastException
  855.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  856.                 End Try
  857.             End Get
  858.             Set(ByVal Value As String)
  859.                 Me(Me.tableTitles.notesColumn) = Value
  860.             End Set
  861.         End Property
  862.  
  863.         Public Property pubdate() As Date
  864.             Get
  865.                 Try
  866.                     Return CType(Me(Me.tableTitles.pubdateColumn), Date)
  867.                 Catch e As InvalidCastException
  868.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  869.                 End Try
  870.             End Get
  871.             Set(ByVal Value As Date)
  872.                 Me(Me.tableTitles.pubdateColumn) = Value
  873.             End Set
  874.         End Property
  875.  
  876.         Public Property PublishersRow() As PublishersRow
  877.             Get
  878.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("PubTitles")), PublishersRow)
  879.             End Get
  880.             Set(ByVal Value As PublishersRow)
  881.                 Me.SetParentRow(Value, Me.Table.ParentRelations("PubTitles"))
  882.             End Set
  883.         End Property
  884.  
  885.         Public Function Istitle_idNull() As Boolean
  886.             Return Me.IsNull(Me.tableTitles.title_idColumn)
  887.         End Function
  888.  
  889.         Public Sub Settitle_idNull()
  890.             Me(Me.tableTitles.title_idColumn) = System.Convert.DBNull
  891.         End Sub
  892.  
  893.         Public Function IstitleNull() As Boolean
  894.             Return Me.IsNull(Me.tableTitles.titleColumn)
  895.         End Function
  896.  
  897.         Public Sub SettitleNull()
  898.             Me(Me.tableTitles.titleColumn) = System.Convert.DBNull
  899.         End Sub
  900.  
  901.         Public Function IstypeNull() As Boolean
  902.             Return Me.IsNull(Me.tableTitles.typeColumn)
  903.         End Function
  904.  
  905.         Public Sub SettypeNull()
  906.             Me(Me.tableTitles.typeColumn) = System.Convert.DBNull
  907.         End Sub
  908.  
  909.         Public Function Ispub_idNull() As Boolean
  910.             Return Me.IsNull(Me.tableTitles.pub_idColumn)
  911.         End Function
  912.  
  913.         Public Sub Setpub_idNull()
  914.             Me(Me.tableTitles.pub_idColumn) = System.Convert.DBNull
  915.         End Sub
  916.  
  917.         Public Function IspriceNull() As Boolean
  918.             Return Me.IsNull(Me.tableTitles.priceColumn)
  919.         End Function
  920.  
  921.         Public Sub SetpriceNull()
  922.             Me(Me.tableTitles.priceColumn) = System.Convert.DBNull
  923.         End Sub
  924.  
  925.         Public Function IsadvanceNull() As Boolean
  926.             Return Me.IsNull(Me.tableTitles.advanceColumn)
  927.         End Function
  928.  
  929.         Public Sub SetadvanceNull()
  930.             Me(Me.tableTitles.advanceColumn) = System.Convert.DBNull
  931.         End Sub
  932.  
  933.         Public Function IsroyaltyNull() As Boolean
  934.             Return Me.IsNull(Me.tableTitles.royaltyColumn)
  935.         End Function
  936.  
  937.         Public Sub SetroyaltyNull()
  938.             Me(Me.tableTitles.royaltyColumn) = System.Convert.DBNull
  939.         End Sub
  940.  
  941.         Public Function Isytd_salesNull() As Boolean
  942.             Return Me.IsNull(Me.tableTitles.ytd_salesColumn)
  943.         End Function
  944.  
  945.         Public Sub Setytd_salesNull()
  946.             Me(Me.tableTitles.ytd_salesColumn) = System.Convert.DBNull
  947.         End Sub
  948.  
  949.         Public Function IsnotesNull() As Boolean
  950.             Return Me.IsNull(Me.tableTitles.notesColumn)
  951.         End Function
  952.  
  953.         Public Sub SetnotesNull()
  954.             Me(Me.tableTitles.notesColumn) = System.Convert.DBNull
  955.         End Sub
  956.  
  957.         Public Function IspubdateNull() As Boolean
  958.             Return Me.IsNull(Me.tableTitles.pubdateColumn)
  959.         End Function
  960.  
  961.         Public Sub SetpubdateNull()
  962.             Me(Me.tableTitles.pubdateColumn) = System.Convert.DBNull
  963.         End Sub
  964.     End Class
  965.  
  966.     <System.Diagnostics.DebuggerStepThrough()> _
  967.     Public Class TitlesRowChangeEvent
  968.         Inherits EventArgs
  969.  
  970.         Private eventRow As TitlesRow
  971.  
  972.         Private eventAction As DataRowAction
  973.  
  974.         Public Sub New(ByVal row As TitlesRow, ByVal action As DataRowAction)
  975.             MyBase.New()
  976.             Me.eventRow = row
  977.             Me.eventAction = action
  978.         End Sub
  979.  
  980.         Public ReadOnly Property Row() As TitlesRow
  981.             Get
  982.                 Return Me.eventRow
  983.             End Get
  984.         End Property
  985.  
  986.         Public ReadOnly Property Action() As DataRowAction
  987.             Get
  988.                 Return Me.eventAction
  989.             End Get
  990.         End Property
  991.     End Class
  992. End Class
  993.